home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The PC-SIG Library 9
/
The PC-SIG Library on CD ROM - Ninth Edition.iso
/
301_400
/
DISK0375
/
DISK0375.ZIP
/
TSIN.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1984-07-04
|
340b
|
17 lines
program Tsin;
{ test range of sin function
{ AUTHOR: Alan Miller
{ Taken from 'Pascal Programs for Scientists and Engineers'
{ Entered by Danny Cavasos June 1984}
var
i:integer;
x:real;
begin
x:=1.0e-4/0.3;
for i:=1 to 40 do
begin
writeln('x=',x,' sin=',sin(x));
x:=0.1*x;
end;
end.